SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROC [dbo].[SP_TDANTC_LETR_U02]   
/*---------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                  --*/  
/*---Cliente              : CASSINELLI S.A.              --*/  
/*---Sistema              : Tesoreria                    --*/  
/*---M«dulo               : Empresa                      --*/  
/*---Programa             : Actualiza TDANTC_LETR  --*/  
/*---Script               : ttproc_i.sql                 --*/  
/*---Nombre SP            : SP_TTPROC_INTE_I02           --*/  
/*---Desarrollado por     : Reynaldo Menacho L.          --*/  
/*---Fecha Creaci«n       : 12/09/2003           --*/  
/*---Base Datos           : Microsoft Sql Server         --*/  
/*---Versi«n              : 2000                         --*/  
/*---Invoca a SP          :                              --*/  
/*---------------------------------------------------------*/  
  
/*-------------------------------------------------------*/    
/*---Modificado 1 por     : Maribel Julca Rodriguez      --*/    
/*---Fecha Modificaci©n   : 20/04/2005                   --*/     
/*---Detalle Modificaci©n : ingreso de los campos CO_USUA_CREA Y CO_USUA_MODI                           --*/    
/*-------------------------------------------------------*/    
  
/*---------------------------------------------------------*/  
/*---Comentarios                                         --*/  
/*---                                                    --*/  
/*---                                                    --*/  
/*---------------------------------------------------------*/  
  
/*---------------------------------------------------------*/  
/*---Drop Proc SP_TDANTC_LETR_U02                        --*/  
/*---Grant all on SP_TDANTC_LETR_U02 to public           --*/   
/*---SP_TDANTC_LETR_U02 '01' , 1, 1, '03/01/1999',       --*/  
/*--- '03/31/1999', 'N', 1, 0, 0, NULL , NULL            --*/  
/*---------------------------------------------------------*/  
@ISCO_EMPR TD_VC_002,   
@ISCO_USUA_MODI TD_VC_008_USUA,  
@ISCO_UNID_CONC TD_VC_003,   
@ISNU_AMAR TD_VC_010,   
@IDFE_AMAR TD_DT_001,  
@INNU_SECU TD_IN_001,   
@ISCO_MONE TD_VC_003,  
@INIM_DOCU TD_NU_016_004,  
@IDFE_EMIS TD_DT_001,   
@IDFE_VENC  TD_DT_001
	As
declare   
@VNNU_CORR TD_IN_001,  
@VNNU_LONG TD_IN_001,  
@VSNU_ULTI_CORR TD_VC_020,  
@VSCO_COND_CONT TD_VC_003,  
@VSTI_CLIE TD_VC_003  
  
  
BEGIN TRAN TDANTC_LETR_U02  
  
 /* Actualizo el detalle de letras generadas */  
 Update TDANTC_LETR  
 Set CO_MONE_LETR = @ISCO_MONE,   
 IM_LETR = @INIM_DOCU,
 CO_USUA_MODI = @ISCO_USUA_MODI,  
 FE_USUA_MODI = GETDATE()   
 Where CO_EMPR = @ISCO_EMPR  
 And CO_UNID_CONC = @ISCO_UNID_CONC  
 And NU_AMAR = @ISNU_AMAR  
 And FE_AMAR = @IDFE_AMAR  
 And NU_SECU = @INNU_SECU   
  
 IF (@@ERROR != 0)  
     BEGIN   
       RAISERROR 20001 'ERROR DE INSERCION'  
       ROLLBACK TRAN  
       RETURN  
     END  
  
 /* Grabo en la tabla de Letras */  
 Update TMDOCU_CLIE  
 Set FE_EMIS = @IDFE_EMIS,   
 FE_VENC = @IDFE_VENC,  
 FE_PROG_COBR = @IDFE_VENC,  
 CO_MONE = @ISCO_MONE,  
 IM_TOTA = @INIM_DOCU,
 CO_USUA_MODI = @ISCO_USUA_MODI,  
 FE_USUA_MODI = GETDATE()    
 From TMDOCU_CLIE T1, TDANTC_LETR T2  
 Where T1.CO_EMPR = @ISCO_EMPR  
 And T1.CO_CLIE = T2.CO_ENTI  
 And T1.CO_TIPO_DOCU = T2.CO_TIPO_DOCU  
 And T1.NU_DOCU_CLIE = T2.NU_DOCU_CLIE  
 And T1.CO_EMPR = T2.CO_EMPR  
 And T2.CO_UNID_CONC = @ISCO_UNID_CONC  
 And T2.NU_AMAR = @ISNU_AMAR  
 And T2.FE_AMAR = @IDFE_AMAR  
 And T2.NU_SECU = @INNU_SECU   
  
 IF (@@ERROR != 0)  
     BEGIN   
       RAISERROR 20001 'ERROR DE INSERCION'  
       ROLLBACK TRAN  
       RETURN  
     END  
  
  
COMMIT TRAN TDANTC_LETR_U02  
  
/*--------------------------- Fin -------------------------------- */


GO
